home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / bin2.lha / Macros / DoOL.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-08  |  566b  |  23 lines
  1. /* DoOL - Pre-link an Oberon program */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7. if ~show('L','RexxDosSupport.library') then
  8.    call addlib('RexxDosSupport.library',0,-30)
  9.  
  10. parse arg module screenname
  11.  
  12. ol_args = GetVar("OL_ARGS")
  13.  
  14. call close 'STDERR'
  15. call open 'STDERR','NIL:','W'
  16. call close 'STDIN'
  17. call close 'STDOUT'
  18. call open 'STDOUT','CON:10/25/540/165/Pre-linking.../SCREEN'||screenname,'RW'
  19. call pragma '*','STDOUT'
  20. call pragma 'Stack', 12000
  21.  
  22. address command 'OBERON-A:C/OL >* <*' ol_args module
  23.